home *** CD-ROM | disk | FTP | other *** search
/ Varios Español / Varios Español.iso / DBWINESP / DISK7 / CBTSAMP.PAK / ANIMALES.WFM < prev    next >
Text File  |  1994-11-28  |  9KB  |  318 lines
  1. *******************************************************************************
  2. *  PROGRAMA:     Animales.wfm
  3. *
  4. *  ESCRITO POR:  Grupo Borland de ejemplos
  5. *
  6. *  FECHA:        1/94
  7. *
  8. *  ACTUALIZADO:  7/94
  9. *
  10. *  REVISION:     $Revisión:   2.70  $
  11. *
  12. *  VERSION:      dBASE PARA WINDOWS 5.0
  13. *
  14. *  DESCRIPCION:  Este programa muestra la habilidad que tiene dBASE
  15. *                para recorrer una tabla y mostrar su contenido. La ficha creada en el programa
  16. *                tiene entradas de campo que muestran el nombre y hábitat de diferentes
  17. *                animales, botones que permiten moverse hacia adelante o hacia atrás o
  18. *                salir del programa, y una imagen del animal actual.
  19. *                
  20. *
  21. *  PARAMETROS:   Ninguno
  22. *
  23. *  LLAMADAS:     Botones.cc      (Archivo de controles personalizados)
  24. *                Animales.qbe     (Consulta de tabla)
  25. *
  26. *  UTILIZACION:        DO Animales.wfm
  27. *
  28. ********************************************************************************
  29. create session
  30. set talk off
  31. set ldCheck off
  32.  
  33. ** END HEADER -- do not remove this line*
  34. * Generado el 06/28/94
  35. *
  36. LOCAL f
  37. f = NEW ANIMALESFORM()
  38. f.Open()
  39.  
  40. CLASS ANIMALESFORM OF FORM
  41.    Set Procedure to Botones.cc Additive
  42.    this.View = "ANIMALES.QBE"
  43.    this.OnNavigate = CLASS::ONNAVIGATE
  44.    this.Height =         15.15
  45.    this.Left =         9.96
  46.    this.Maximize = .F.
  47.    this.HelpId = ""
  48.    this.Text = "Animales"
  49.    this.Minimize = .F.
  50.    this.ColorNormal = "W"
  51.    this.OnOpen = CLASS::ONOPEN
  52.    this.HelpFile = ""
  53.    this.Top =          1.19
  54.    this.Width =         68.89
  55.  
  56.    DEFINE RECTANGLE TITLERECTANGLE OF THIS;
  57.        PROPERTY;
  58.          Height          2.81,;
  59.          Left          0.00,;
  60.          Text "",;
  61.          Border .F.,;
  62.          ColorNormal "N/W",;
  63.          Top          0.00,;
  64.          BorderStyle          1,;
  65.          Width         68.97
  66.  
  67.    DEFINE RECTANGLE INFORECTANGLE OF THIS;
  68.        PROPERTY;
  69.          Height         10.20,;
  70.          FontSize          7.50,;
  71.          Left          0.00,;
  72.          Text "",;
  73.          Border .F.,;
  74.          ColorNormal "w",;
  75.          Top          2.81,;
  76.          MousePointer          3,;
  77.          BorderStyle          1,;
  78.          Width         68.97
  79.  
  80.    DEFINE RECTANGLE RECTANGLE1 OF THIS;
  81.        PROPERTY;
  82.          Height          2.20,;
  83.          Left          0.00,;
  84.          Text "",;
  85.          Border .F.,;
  86.          ColorNormal "N/W",;
  87.          Top         12.98,;
  88.          BorderStyle          1,;
  89.          Width         68.97
  90.  
  91.    DEFINE TEXT TITLETEXT OF THIS;
  92.        PROPERTY;
  93.          Alignment          4,;
  94.          FontName "Times New Roman",;
  95.          Height          2.02,;
  96.          FontSize         26.00,;
  97.          Left          0.33,;
  98.          FontBold .F.,;
  99.          Text "Animales del mundo",;
  100.          Border .F.,;
  101.          ColorNormal "B/W",;
  102.          Top          0.23,;
  103.          Width         67.23
  104.  
  105.    DEFINE TEXT NAMETEXT OF THIS;
  106.        PROPERTY;
  107.          Alignment          5,;
  108.          FontName "Arial",;
  109.          Height          1.36,;
  110.          FontSize         11.00,;
  111.          Left          0.33,;
  112.          FontBold .F.,;
  113.          FontItalic .T.,;
  114.          Text "Nombre",;
  115.          Border .F.,;
  116.          ColorNormal "B/W",;
  117.          Top          3.21,;
  118.          Width         9.50
  119.  
  120.    DEFINE ENTRYFIELD NAMEENTRY OF THIS;
  121.        PROPERTY;
  122.          FontName "Arial",;
  123.          Height          1.36,;
  124.          FontSize         11.00,;
  125.          Left         10.79,;
  126.          Enabled .F.,;
  127.          DataLink "ANIMALES->NOMBRE",;
  128.          Border .T.,;
  129.          ColorNormal "N/0xffff80",;
  130.          Top          3.21,;
  131.          ColorHighLight "N/0xffff80",;
  132.          Width         27.39
  133.  
  134.    DEFINE TEXT SIZETEXT OF THIS;
  135.        PROPERTY;
  136.          Alignment          5,;
  137.          FontName "Arial",;
  138.          Height          1.30,;
  139.          FontSize         11.00,;
  140.          Left          0.33,;
  141.          FontBold .F.,;
  142.          FontItalic .T.,;
  143.          Text "Tamaño",;
  144.          Border .F.,;
  145.          ColorNormal "B/W",;
  146.          Top          4.76,;
  147.          Width         9.50
  148.  
  149.    DEFINE ENTRYFIELD SIZEENTRY OF THIS;
  150.        PROPERTY;
  151.          FontName "Arial",;
  152.          Height          1.30,;
  153.          FontSize         11.00,;
  154.          Left         10.79,;
  155.          Enabled .F.,;
  156.          DataLink "ANIMALES->TAMANO",;
  157.          Border .T.,;
  158.          ColorNormal "N/0xffff80",;
  159.          Top          4.76,;
  160.          ColorHighLight "N/0xffff80",;
  161.          Width         14.11
  162.  
  163.    DEFINE TEXT WEIGHTTEXT OF THIS;
  164.        PROPERTY;
  165.          Alignment          5,;
  166.          FontName "Arial",;
  167.          Height          1.36,;
  168.          FontSize         11.00,;
  169.          Left          0.33,;
  170.          FontBold .F.,;
  171.          FontItalic .T.,;
  172.          Text "Peso",;
  173.          Border .F.,;
  174.          ColorNormal "B/W",;
  175.          Top          6.24,;
  176.          Width         9.50
  177.  
  178.    DEFINE ENTRYFIELD WEIGHTENTRY OF THIS;
  179.        PROPERTY;
  180.          FontName "Arial",;
  181.          Height          1.36,;
  182.          FontSize         11.00,;
  183.          Left         10.79,;
  184.          Enabled .F.,;
  185.          DataLink "ANIMALES->PESO",;
  186.          Border .T.,;
  187.          ColorNormal "N/0xffff80",;
  188.          Top          6.24,;
  189.          ColorHighLight "N/0xffff80",;
  190.          Width         14.11
  191.  
  192.    DEFINE TEXT AREATEXT OF THIS;
  193.        PROPERTY;
  194.          Alignment          5,;
  195.          FontName "Arial",;
  196.          Height          1.30,;
  197.          FontSize         11.00,;
  198.          Left          0.33,;
  199.          FontBold .F.,;
  200.          FontItalic .T.,;
  201.          Text "Area",;
  202.          Border .F.,;
  203.          ColorNormal "B/W",;
  204.          Top          7.79,;
  205.          Width         9.50
  206.  
  207.    DEFINE ENTRYFIELD AREAENTRY OF THIS;
  208.        PROPERTY;
  209.          FontName "Arial",;
  210.          Height          1.30,;
  211.          FontSize         11.00,;
  212.          Left         10.79,;
  213.          Enabled .F.,;
  214.          DataLink "ANIMALES->AREA",;
  215.          Border .T.,;
  216.          ColorNormal "N/0xffff80",;
  217.          Top          7.79,;
  218.          ColorHighLight "N/0xffff80",;
  219.          Width         27.39
  220.  
  221.    DEFINE IMAGE ANIMALIMAGE OF THIS;
  222.        PROPERTY;
  223.          Height          9.38,;
  224.          DataSource "BINARY ANIMALES->BMP",;
  225.          Left         40.67,;
  226.          Top          3.03,;
  227.          Width         25.73
  228.  
  229.    DEFINE PREVBUTTON PREVANIMALBUTTON OF THIS;
  230.        PROPERTY;
  231.          Height          1.50,;
  232.          Left          0.83,;
  233.          OnClick CLASS::PREV_ONCLICK,;
  234.          Top         11.11,;
  235.          Width         14.11
  236.  
  237.    DEFINE NEXTBUTTON NEXTANIMALBUTTON OF THIS;
  238.        PROPERTY;
  239.          Height          1.50,;
  240.          Left         16.60,;
  241.          OnClick CLASS::NEXT_ONCLICK,;
  242.          Top         11.11,;
  243.          Width         14.11
  244.  
  245.    DEFINE CLOSEBUTTON CLOSEANIMALSBUTTON OF THIS;
  246.        PROPERTY;
  247.          Height          1.50,;
  248.          Left          0.83,;
  249.          Default .T.,;
  250.          Top         13.51,;
  251.          Width         14.11
  252.  
  253.    ****************************************************************************
  254.    PROCEDURE OnOpen
  255.    ****************************************************************************
  256.  
  257.    *** Hace los cálculos en otra área de trabajo para que la ficha no resulte afectada
  258.    use animales again in select() order tag(1) alias temp
  259.    go bottom in temp
  260.    form.lastRec = recno("temp")
  261.    go top in temp
  262.    form.firstRec = recno("temp")
  263.    use in temp
  264.    ***
  265.  
  266.    form.closeAnimalsButton.SetFocus()
  267.  
  268.    ****************************************************************************
  269.    PROCEDURE NEXT_OnClick
  270.    ****************************************************************************
  271.    NEXTBUTTON::OnClick()
  272.    if recno() = form.lastRec        &&  Asigna el foco al botón Anterior
  273.       form.prevAnimalButton.setfocus()
  274.    endif
  275.  
  276.    ****************************************************************************
  277.    PROCEDURE PREV_OnClick
  278.    ****************************************************************************
  279.    PREVBUTTON::OnClick()
  280.    if recno() = form.firstRec       && Asigna el foco al botón Siguiente
  281.       form.nextAnimalButton.setfocus()
  282.    endif
  283.  
  284.  
  285.    ****************************************************************************
  286.    PROCEDURE OnNavigate
  287.    ****************************************************************************
  288.    if animales->tamano > 10
  289.       form.sizeEntry.colornormal = "bg+/r"
  290.       form.statusmessage = "Tamaño del animal  > 10"
  291.    else
  292.       form.sizeEntry.colornormal = "n/0xffff80"
  293.       form.statusmessage = ""
  294.    endif
  295.  
  296. ENDCLASS
  297.  
  298.  
  299.  
  300.  
  301.  
  302.  
  303.  
  304.  
  305.  
  306.  
  307.  
  308.  
  309.  
  310.  
  311.  
  312.  
  313.  
  314.  
  315.  
  316.  
  317.  
  318.